#!/usr/local/bin/perl
use warnings;
sub main()
{
$a = 0;

$b = 0;
$a = 0;

$b = 3;

if (($a<$b)){{
print 2;
$a = ($a+1);
}
}
 else {print 4;
}

$a = ($a-1);

return $a;
}

print main()."\n";
